home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / fpc09905c.lha / fpc / inc / textrec.inc < prev    next >
Text File  |  1998-09-21  |  2KB  |  106 lines
  1. {
  2.     $Id: textrec.inc,v 1.3 1998/05/21 15:37:19 carl Exp $
  3.     This file is part of the Free Pascal run time library.
  4.     Copyright (c) 1993,97 by the Free Pascal development team
  5.  
  6.     See the file COPYING.FPC, included in this distribution,
  7.     for details about the copyright.
  8.  
  9.     This program is distributed in the hope that it will be useful,
  10.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12.  
  13.  **********************************************************************}
  14.  
  15. {
  16.   This file contains the definition of the textrec record.
  17.   It is put separately, so it is available outside the system
  18.   unit without sacrificing TP compatibility.
  19. }
  20.  
  21. Const
  22.  
  23. {$ifdef linux}
  24.   textrecnamelength = 255;
  25. {$endif}
  26. {$ifdef Win32}
  27.     textrecnamelength = 255;
  28. {$endif}
  29. {$ifdef MACOS}
  30.     textrecnamelength = 255;
  31. {$endif}
  32. {$ifdef AMIGA}
  33.     textrecnamelength = 255;
  34. {$endif}
  35. {$ifdef OS2}
  36.     textrecnamelength = 79;
  37. {$endif}
  38. {$ifdef Go32v1}
  39.     textrecnamelength = 79;
  40. {$endif Go32v1}
  41. {$ifdef Go32v2}
  42.     textrecnamelength = 79;
  43. {$endif Go32v2}
  44. {$ifdef ATARI}
  45.     textrecnamelength = 79;
  46. {$endif}
  47.  
  48. type
  49.   textbuf = array[0..127] of char;
  50.  
  51. {$PACKRECORDS 2}
  52.   textrec = record
  53. {$ifdef win32}
  54.      handle    : longint;
  55. {$endif win32}
  56. {$ifdef amiga}
  57.      handle    : longint;
  58. {$endif amiga}
  59. {$ifdef macos}
  60.      handle    : longint;
  61. {$endif macos}
  62. {$ifdef linux}
  63.      handle    : word;
  64. {$endif}
  65. {$ifdef Go32v1}
  66.      handle    : word;
  67. {$endif Go32v1}
  68. {$ifdef Go32v2}
  69.      handle    : word;
  70. {$endif Go32v2}
  71. {$ifdef atari}
  72.      handle    : word;
  73. {$endif atari}
  74. {$ifdef os2}
  75.      handle    : word;
  76. {$endif os2}
  77.  
  78.  
  79.      mode      : word;
  80.      bufsize,
  81.      _private,
  82.      bufpos,
  83.      bufend    : word;
  84.      bufptr    : ^textbuf;
  85.      openfunc,
  86.      inoutfunc,
  87.      flushfunc,
  88.      closefunc : pointer;
  89.      userdata  : array[1..16] of byte; 
  90.      name      : array[0..textrecnamelength] of char;
  91.      buffer    : textbuf;
  92.   end;
  93.  
  94. {
  95.   $Log: textrec.inc,v $
  96.   Revision 1.3  1998/05/21 15:37:19  carl
  97.    + working version now ok
  98.  
  99.   Revision 1.2  1998/05/12 10:42:45  peter
  100.     * moved getopts to inc/, all supported OS's need argc,argv exported
  101.     + strpas, strlen are now exported in the systemunit
  102.     * removed logs
  103.     * removed $ifdef ver_above
  104.  
  105. }
  106.